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APPENDIX 

Object: n_cst_busabs_activity 
Process: 180 

Method: of_AssessCharges () 

Main Routine. This function is the starting point 
for the charge calculation process. It it called 
after the terms of the activity have been 
successfully verified. After gathering information 
required to determine and calculate charges on the 
activity, this function instantiates the 
AssessCharges service object which performs the 
actual calculation and assignment of charges. 

lUIIIIIIIIIIIIIUIIIIUIIIIIIIillllllllllllllllllUIIIUUIIIIIIIUIIIIIIIlll 

o f_Ass e s sCharge s 
public 



SUCCESS if successful, FAILURE if not 

Checks if the activity status is one that allows charges to 

performed and if so, kicks off the process. 
Call of_AssessCharges on the Assess Charges service object. 
This will kick off the logic to copy held charges and 

new charges for this activity. 

The service object uses the handles to the current 

activity, and list of charges to add items to to gather the 
charges for the given scenario. 

////////////////////////////////////////////////////////////////////////////// 
// 

// Revision History 
// 

// edelaski 2 jan 1997 Initial version 

// bschuettler 12 aug 1997 implement charges recalc 



/ - 

Function: 
Access : 
Arguments : 
Returns : 
Description: 

be 

generate 
instrument , 
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// 

IIUIIIIIIIItlllllllllllllllllllllllttllllllllllltlllillllllllllllllllllllHIII! 
II 

If Copyright ° 1997 American Management Systems. All rights reserved. 
// 

IflllllllllllllllllllllllllillllllllllllllllllllllllllllllllUIIIIIIIIIIIIIIII 
n_cst_bussrv_assesschrgs lnv_AssessChargesService 
n_cst_busabs_instrumentterms lnv_terms 
string ls_uoid, ls_Status, ls_termsuoid 
boolean lb_ErrorsFound 

lb_ErrorsFound = FALSE 
ofjmableactivitymgr(TRUE) 
lsjioid = of^GetObjectlDO 

// Get the current status. 

Is Status = inv_AttributeMgr.of - GetAttribute(•cu^rent_status , ) 

// If the status is verified, assess the charges. 
If ls_Status = gk.Verified Then 
//'Check if this is a terms type activity. If so, get terms characteristics 
if mv_activitymgr.of jiewtermsO then 

Is" termsuoid = mv - attributemg^.of_getattribute(*active_terms_results , ) 

lnvjerms = mvjrnmediateparent.dynamic of_getcomponenmandle( , terms_Iist( , +ls_tennsuoid+*)*) 
mv_ternis.of_getinsmchrgchar<as_atrributenameD l asjittributevalueQ) 
End If"* 

// Get activity type specific attributes 

inv_activitymgr.event ue^getchrgcharacteristicsfasju^buteiiameQ, as_attributevalueQ) 
// Assess the charges. 

Inv AssessChargesService = CREATE n_cst_bussrv_assesschrgs 

lnv~AssessChargesService.of_setrequestor(this) 

If lnv AssessChargesService.of_AssessCharges(as_attributenameD, & 

as_attributevalueQ) < > gk.Success Then 

inv_e^^.of_e^or( , UNABLE_TO - ASSESS^CHARGES^ Isjioid) 

lb_ErrorsFound = TRUE 
End If" 

DESTROY Inv AssessChargesService 
// Set recalc to NO 

If inv AttributeMgr.of_SetAttribute(*charges - recalcuIationJndicator , f gk.No) < > gk.Success Then 
inv_en , .of_error( , UNABLE_TO_SET_CHARGES_R£CALC_IND * , Isjioid) 
lb_ErrorsFound = TRUE 

End if 

Else 

mv_err.of_error(' ACTIVnY_NOT_VERIFIED' , Isjioid) 
lb ErrorsFound » TRUE 
End if 

If IbJErrorsFound Then 
Return gk.Failure 

Else 

Return gk.Success 
End If 
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Ob j ec t : n__c s t_bus ab s_ac t ivi ty 
Process: 182 

Method: of JSetChargelnf o () 

This function pulls together information (e.g., 
attributes) from the Activity object which will be 
used during the charge calculation and assessment 
process. 

//////////////////////////////////////////////////// 
//////////////////////////// 

/* 

Ds sciri-D t ion * 

Retrieves activity-specific characteristics needed for charge preloads and 
calculations. 

Arguments: _ l% _ . 

as attributename[] - reference array of attributes retrieved 

as"attributevalue 13 - reference array of attribute values 

Returns : 
None. 

string gk. FAILURE or gk. SUCCESS 

y 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 u 1 1 1 1 f 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 in mi 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

II Revision History 
// 

// Name Date Description 

II 

II Copyright e 1997 American Management Systems. All Rights Reserved. 

'miiiiiiiiiuiiuniiiiiiuiinniiiuiiiiuiniiiuuiiiuiiiuuiiuiiiiiii 
ii 

string Is valued 

integer ll , li_row, li_UpperBound 

li_row = U£perBound(as_attributenameU ) 
li^row++ 

// Gets Close Instrument Indicator 

as attributename [li_rowJ a 1 close_instrument_indicator' 

as~attributevalue [li_row] = inv_activity.of_GetComponentAttribute( 'payment' , 

' close_instrument_indicator' ) 

li_row++ 

as_attributenarae [li_row] » 'payment_made_indicator' 

invjtastrument .of JSetComponentAt tribute { ' activity_list ' , { ' activity_type' , 
' cur rentes t a tus' }7 ls_value CI ) 

// Assigns Payment Made Indicator based on Payment Activity Status 
li_UpperBound a UpperBound(ls_value [] ) 
FOR li » 1 TO li_UpperBound step 2 
If Is value [li] = gk. PAYMENT THEN 

IF~ls_value[li+l] = gk. RELEASED THEN 

as attributevalue [li_row] =» gk.Yes 
ELSE " 

as_attributevalue [li_row] = gk.No 
END IF 
EXIT 
END IF 
NEXT 

Return gk. SUCCESS 
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Object: n_cst_busobj_dlcterxns 
Process: 184 

Method : of _Ge tChargelnf o ( ) 

Called by the Activity business object to gather the 
attributes on the Terms object (and its components) 
that are required to determine and calculate charges 
for the Activity. 



//////////////////////////////////////////////////// 

/////////////////////////////// 

/* 

Description: 

Retrieves all the information necessary for charges to determine which 
charge types to preload. 

Arguments : 

as attributename [] reference - populates all the characteristic names 
as~attributevalue [] reference - populates all the characteristic values 

Returns : 

Return value 

////////////////////////////////////////////////////////////////////////////// 
///// 

//Revision History 
// 

// Name Date Description 

// A. Name 24 oct 96 initial release 

// N. Felix 28 Jan 98 Removed setting of revolve indicator b/c it is done 
on 

// superlc terms object 

////////////////////////////////////////////////////////////////////////////// 
///// 

// Copyright ° 1996 American Management Systems. All Rights Reserved. 

////////////////////////////////////////////////////////////////////////////// 

//* Determine the values of various attributes and association of an LC_type 
instrument 

//* that are used for charge preloads, 
int li_attribcount, i 
string ls_partyuoid 
long ll_partyrow 

n_cst_busobj_col lateral terms lnv_col lateral 
li_attribcount » Upperbound<as_attributename [] ) + 1 
// Get Charges for 

as_attributename (li_attribcount] = ' charge s_for_party' 
as_attributevalue [li_attribcount] = 
inv_attributemgr .of_getattribute ( ' charges_f or' ) 
li_attribcount++ 

// Determine collateral 

as_attributename [li_attribcount] « ' collateralized_indicator' 
if 

gnv_app . inv_string .of_isempty (inv_attributemgr . of_getattribute ( ' collateral_ter 
ms ' ) ) then 

as_attributevalue [li_attribcount] = glc.NO 
1 i_at tr ibcount ++ 
Else 

as_attributevalue [li_attribcount] = gk.YES 
li_attribcount++ 
//* if collateral, determine collateral type 

lnv_col lateral = of_get component handle ( • collateral_terms' ) 
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as_attributename (li_attribcount) = ' collateral_type' 

as_attributevalue Ui_attribcount] « lnv_collateral .of_determcollattype () 
li~attribcount++ 
End If 

//Operative indicator 

as_attributename(li_attribcount] - ' operative_indicator' 
as_attributevalue [li_attribcount] = 

inv_attributemgr .of_getattribute ( ' operative_indicator ' ) 
li_attribcount++ 

//Determine RMB indicators 

inv_j>artylist = of get component handle ( ' party_list' ) 

as_attributename [li_attr ibcount] = ' reimbursing_bank_indicator' 

if invjpartylist.of_locate('party_type' , 'RMB.' , ls_j?artyuoid, ll_partyrow) then 

as_attributevalue[li_attribcount] = gk.YES 

li attribcount++ 

as~attributename [li_attribcount] = ' reimbursing_bank_charges_f or_party' 

as_attributevalue [li_attribcount] = 
of_get component at tribute (' 1 ere imburse terras' , ' charges_for' ) 

1 i_a t t r ibcount + + 
Else 

as_attributevalue [li_attribcount] ■ gk.NO 
li at tr ibcount 
End ll 

II Get purpose type 

as_attributename [li attribcount] = ' purpose_type ' 
as_attributevalue [lT_attr ibcount] = 
inv_attributemgr . of _getattribute { ' purpose_type ' ) 
li_attribcount++ 

// Get available by type 

as_attributename[li_attribcount] = ' available_by_type' 
as attributevalue [li_attribcount] - 
inv_attributemgr . of _getattribute ( ' available_by ' ) 
li_ attribcount++ 

// Get out confirm type 

as_attributename[li_attribcount] - ' our_conf irm_type' 
as_attributevalue [li_attribcountl = 
inv_attributemgr . of _getattribute ( ' our_conf irm_type ' ) 
li_attr ibcount ++ 

// Get Cover Full Indicator 

as_attributename[li_attribcount] = ' advise_type' 
as attributevalue [li_attribcount] ■ 

inv_attributemgr .of_getattribute ( ' cover_full_details_indicator' ) 
li_attribcount++ 

// Get Previously Confirm Indicator 

as_attributename [li_attr ibcount] = ' previous ly_conf irmed_indicator' 
as_attributevalue [li_attribcount] m of _getprevconf indicator ( ) 
li_attr ibcount ++ 

// Get the 7 user defined attributes 
For i * 1 to 7 

as_attributename [li_attribcount] = 
' lc_type_instruments user_def ined_term_' + string (i) 

as attributevalue7li_attribcount] m 
inv attributemgr . of _ge tat tribute (as_attributename [li_attribcount] ) 

Ti_attribcount++ 
Next 



Return gk. SUCCESS 
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Object: n_cst_bussrv_assesscharges 
Process: 186 

Method: of_AssessCharges ( ) 

Called by the Activity business object to assess the 
charges for the Activity. It first deletes all of 
the previously calculated charges (if any) and then 
calls the of J3enerateNewCharges function which 
calculates the charges for "the activity and stores 
them on it as component objects (e.g., 
Activity_Charge) 

//////////////////////////////////////////////////// 

////////////////////////// 

/* 

Function: of_assesscharges 
Access: public 

Arguments: anv Activity The calling activity 

as_characteristicname [1 instrument characteristic 

as characteristicvalue [] instrument characteristic 



names 
values 



Returns: string 

(gk. SUCCESS or error code) 

Description: Attaches activity charges to the activity that calls this 
responsibility . 

To do this, it goes through the following steps: 

- delete all old charges in the list 

- copy charges held from a previous activity 

- generate charges resulting from this activity 

////////////////////////////////////////////////////////////////////////////// 
// 

// Revision History 
// 

// Version 

// 1.0 Initial version 

////////////////////////////////////////////////////////////////////////////// 
// Copyright ° 1996 American Management Systems, Inc. All Rights Reserved. 

/////////////////////////////////////////////// w//////////////////////////// 

string ls_return, lsjproduct, 1 Byproduct type, ls_activitytype 

// Initialize instance variables so that every function has a handle to 
current instrument, 
// and activity. 

inv_Instrument => anv_Activity .of_GetImmediateParent 0 
inv_Activity » anv_Activity 
ii_NumCharges = 0 

// remember who called me to share error handling, user id, and password: 
this . of _Set Request or ( inv_Activity) 

lsjproduct = inv_instrument .of_getattribute ( ' product' ) 
ls_producttype = inv_instrument . of _ge tat tribute ( ' product_type ' ) 
ls_activitytype => inv_activity.of_getattribute ( ' activity_type' ) 

// determine whether to actually recalculate charges by first checking if the 
last save 

// detected a need to recalc, and if not, ask the activity if its components 
and related 
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// objects have been changed such that a recalculation is needed. If not, 
quit. 

if inv^activity.of^GetAttributeCcharges^recalculation^indicator' ) <> gk.YES 
then 

if not inv_activity . of_NeedToRecalc (gk .CHARGES, {Is ^product, 
Isjproducttype, ls_activitytype} ) then 
return gk. success 

end if 
end if 

// insert the required characteristics into the array needed for the rule 
search: 

of_addcharacteristic ( ' activity_type' , ls^activitytype, 
as_characteristicname [1 , as_characteristicvalue [] ) 

of_addcharacteristic ( 'product_type' , Isjproducttype, as_characteristicname [] , 
as_characteristicvalue [] ) 

of_addcharacteris tic ('product' , ls^product, as_characteristicname [] , 
as_characterist icvalue [ ] ) 

// get the active terms' uoid for future' reference (should be activity's 
responsibility) : 

isJTermsUoid = inv_Activity . of _GetAt tribute ( ' active_terms_results' ) 
if gnv app.inv string.of_isempty (isJTermsUoid) then 

is_f ermsUoiH « inv_Instrument . of jGetAttribute ( ' active_instrument_terms ' ) 
end if 

// Determine the 'Charges For' party type for future reference: 
of__RetrieveChargesForPtyType () 

// Request current Bank Org from activity (needed for rates / conversion / 
instruction search): 

is_OpBankOrg = inv_Activity .of_DetermineOperationalBkOrg() 

// Delete old charges... 

Is return = of_deletecharges 0 

IF~"ls_return <> gk. SUCCESS THEN return ls_return 

// copy held charges from previous activities: 

Is return = of_copyheldcharges ( ) 

IF~ls_return <> gk. SUCCESS THEN return ls_return 

// generate new ones based on this activity: 

ls_return = of_generatenewcharges (as_characteristicname [] , 

as characteristicvalue [1 ) 

IF ls_return <> gk. SUCCESS THEN return ls_return 
return gk. SUCCESS 
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Ob j ect : n__ cst_bussrv_assesscharges 
Process: 188 

Method : of _GenerateNewCharges 

This function determines which charges to apply to 
the activity by identifying the Charge Preload Rules 
that apply and then determining the applicable 
Charge Instruction. (based upon the Preload Rule) . 
For each Charge Instruction, it calls the 
of_CreateCharge function to add an Activity Charge 
component object to the Activity. 

////////////////////////////////////////////////////////////////////////////// 
/* 

Function: of_GenerateNewCharges 

Access : protected 

Arguments : as_CharacteristicName [] 

as_CharacteristicValue [] 

List of attributes/associations/derived attributes 

passed 

in by the activity based on which to search for 

matching 

charge preload rules. 

Returns : string 

(gk. SUCCESS or gk. FAILURE) 

Description: 

////////////////////////////////////////////////////////////////////////////// 
// 

// Revision History 
// 

// Version 

// 1.0 Initial version 

////////////////////////////////////////////////////////////////////////////// 
// Copyright • 1996 American Management Systems, Inc. All Rights Reserved. 

////////////////////////////////////////////////////////////////////////////// 

n_cst_busobj_chrgprldrulelc lny_ChrgPrldRule 
n_cst_busobj_chrginstruction lnv_ChrgIns true t ion 

string Is RuleUoidsU , ls_InstrucUoid, ls_RetrieveParras [3] , ls_av[l 
integer ll, li_RuleCount, li_PtyCount, li_NumInst ructions =» 0 
boolean lb_errors found = false 

// get all party types and associated customers the instrument is currently 
aware of: 

inv_Instrument . of _Re trieye Party Inf o ( inv activity . of _getob j ectid ( ) , 

{ ' party_type ' , ' party_customer ' } , ls_avT] ) 

li_ptycount = upperbound(ls_av [1 ) / 2 

for li a 0 to li_ptycount - 1 

is_InstrumPtyType [upperbound(is_InstrumPtyType [] ) +1] » ls_av[2*li+l] 
is InstrumPtyCustomer [upperbound(is_InstrumPtyCustomer (] ) +1] = 

ls_avT2*li+2j 

end for 

// retrieve charge preload rule candidates for this product 
type/product /activity type combo: 

lnv chrgPrldRule = CREATE n_cst_busobj_chrgprldrulelc 

liJluleCount » lnv_ChrgPrldRule.ofj:ls FindMatches (as_characteristicname (] , 
as_characteristicvalue [] , ls_RuleUoidsT] ) 
DESTROY lnv_ChrgPrldRule 

// Call Findlnstruction and create a charge if an instruction is found. 
FOR 11 « 1 to liJluleCount 

lnvjThrgPrldRule = CREATE n_cstJausobj_chrgprldrulelc 



1330.1020 



IF lnv ChrgPrldRule .of_open (ls_RuleUoids [li] , is_userid, is_password, 
gk . ACCES SPREAD) = gk. SUCCESS THEN 

Is InstrucUoid = this. of _FindIns true t ion (lnv_ChrgPrldRule) 
IF NOT gnv_app.inv_string.of_IsEmpty{ls_InstrucUoid) THEN 
lnv_ChrgInstruction = CREATE n_cst_busobj_chrginstruction 
IF lnv_ChrgIns true t ion. of_open (ls_InstrucUoid, is_userid, 
is_password, gk . ACCESS_READ) = gk. SUCCESS THEN 
li NumInstructions++ 

of~createcharge (lnv_ChrgPrldRule, lnv_ChrgInst ruction) 
END IF 

DESTROY lnv_ChrgInstruction 
. END IF 
END IF 

DESTROY lnv_ChrgPrldRule 
END FOR 

// the only charge that does not get preloaded by a rule is nostro interest: 
of_createnostrointerest 0 

return gk. success 
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Object: n_cst_busob j_chrgprldrulelc 
Process: 192 

Method : of _cls_FindMatches 

This function determines which Charge Preload Rules 
apply to the Activity (based upon characteristing of 
the Activity and its related terms) and passes back 
their Ids. 

IllltlllltllllllllUIIIIIIIIIIIllllllllllIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
/* 

Function: of_cls_FindMatches 
Access: public 

Arguments: , . ,_, 

as CharacteristicNamet] An array of instrument characteristic names 
as~CharacteristicValue[] An array of instrument characteristic names 
as"ruleUOID [] An array of UIDs of the found rules 

" (populated by this function) 

Returns : integer 

The amount of rules that fire for the given 
characteristics . 

Description: This function receives an array of instrument 
characteristics ( poss ible "IF" criteria of a charge preload rule) and finds 
the firing charge preload rules whose UOIDs it passes back 

in 

the second parameter. 

The function is called by the activity charge list to find 
instances of preload rules that the list object will then 

use 

to find corresponding charge instructions. 
The function may also be called from an external object 
for charge preload rule maintenance. 



<UI), e.g. 



y/llllttlllll!IIIIIIIIIU!IIIIIIUIIIIUIIHIUIIIlllillllIUIIIIItlllIIIIIIII 
// 

It Revision History 
// Version 

// 1.0 Initial version 

n///u/t//ff//fH////n//n/f///N///u//n/////f//n//(nm//j//N////f///f 

il Copyright 0 1996 American Management Systems, # Inc. \ t ,,3, A /%//^J?///#/ 

t//fimuu!t/u/f/ftft/!n/ntn//ffn//!/f/u////!//f////ttt/!////t/ttu/// 

int li total, li found =0 
long li rulerowsTl 

n_cst_oEj cls_readonlylist lnv_SearchList 
string ls_Argsl3l 

// get the required characteristics product /product type/activity type for the 

//of open of the search list which will limit the instances to be searched: 

ls_Args [1] =» of ^FindCharacValue ( ' product ' , as_characteristicname [] , 

as characteristicvalue [] ) . . _ . f , 

ls~Args[2] = of FindCharacValue ( 'product_type' , as_characteristicname [] , 

as characteristicvalue [J ) 

ls~Args[3] = of_FindCharacValue ( ' activity_type' , as_charactensticname [] , 
as_characteristicvalue (] ) 

// open the search list passing it the required characteristics in Args [] : 
lnv SearchList = CREATE n_cst_objcls_readonlylist 

lnv~SearchList.of Prepare (' n^stjiusobj^chrgprldrulelc' , 'search ) 

IF Tnv SearchListTof_Open{ls_Args{] , isJJserlD, is_Password, gk . ACCESS_READ , 

li total) = gk. SUCCESS THEN 

~li found = lnv_SearchList.of_Locate(as_characteristicname I J , 
as_characteristicvalue[J , TRUE, as_ruleuoid [] . ll_rulerows [] ) 
END IF 

DESTROY lnv_SearchList 
return li found 
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Object: n_cst_bussrv_assesscharges 
Process: 194 

Method: o f_FindIns true t ion () 

Determines the Charge Instruction to be used for the 
specified Charge Preload Rule. Additional 
information, such as the Customer and the 
Operational Bank Organizaiton is used in the 
determination process. 

/////////////////.///////////////////////////////////////////////////////////// 
/* 

Function: of — Findlnstruction 
Access : public 

Arguments anv_ChrgPrldRule . Charge Preload Rule for which 

matching instruction is to be found. 

Returns String Found instruction UOID or ' ' (not 

found) 

Description: Search for a charge instruction for this charge preload 

rU " charge party or parties and charge type given the current 



instrument 
responsibility 



and activity by calling the ' determine_instruction' class 
on chrg_instruction. 

//////////////////////////////////////////////////// //////////////////////// ^ 
// 

// Revision History 

// bschuettler 7 jan 1997 Initial version 

'miiiiuiiiiiiiiiiiiiiiiiiiiiiiiiiuiiiiiiuiiiiuiiuiiiiiiiitiuiiiiiiiiui 
ii 

II Copyright ° 1997 American Management Systems. All rights reserved. 

////////////////////////////////////////////////////////////////////////////// 

string IsJlulePtyType U , ls_InstrumPtyType [] , ls_InstrumPtyCustomer [] , 
Is InstrucUoidll , & 

" ls_Customer, 1 s_Inst rumen t, ls_ChargeType, ls_searchallind, 

Is values [] 

integer li, lijlumlns trues, li_Row, li_FoundPos, li_ptycount 
n_cstJbusobj_chrginstruction lnv_chrgins true t ion 

// Obtain a customer uoid for the instruction search from the first party of 
those specified 

//on the preload rule that exists in the instrument: 

// get all party types specified on the charge preload rule: 
anv_ChrgPr ldRule . of _Ge tAt tribute ( { ' charge j?ar ty_l ' , ' charge_party_2 ' , 
' chargej?arty_3 ' } , ls_RulePtyType [] ) 
ls_searchallind = 

anv_ChrgPrldRule .of_GetAttribute { ' party_instruction_indicator ' ) 

// get all party types and associated customers the instrument is currently 
aware of : 

inv_Instrument . of JletrievePartylnf o ( inv_activity . of _getob j ectid ( ) , 
{ ' party_type' , ' party_customer' } , ls_values (1 ) 
li_ptycount » upperbound(ls_values [J ) / 2 

for li a o to lijpty count - 1 „ * , , , r ^*i ■ -.i 

Is instrumPtyType[upperbound(ls_InstrumPtyType[] ) +1] - ls_values [2*li+l] 
ls'lnstrumPtyCustomer [upperbound (ls_InstrumPtyCustomer {] ) +1] = 

ls_values[2*li+2] 

end for 

// Now search for the first occurrence of a rule party in the terms parties: 
li =* 1 
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SetNull (ls_Customer) 

DO WHILE li <= UpperBbund(ls_RulePtyTypeU ) AND isNull (ls_Customer) 
FOR li Row = 1 TO UpperBound (ls_InstrumPtyType (] ) 

IF Ts_RulePtyType [li] = ls_InstrumPtyType [lijlow] THEN 
ls_Customer = ls_InstrumPtyCustomer Cli_Row] 
EXIT 
END IF 
END FOR 
li++ 
LOOP 

IF gnv_app.inv_string.of_IsEmpty(ls_Customer) THEN ls_Customer = " 

// Request instrument UOID from the current instrument (needed for instruction 
search) : 

ls_Instrument inv_Instrument .of_GetObjectID () 

// Get the charge type from this rule (additional attribute in instruction 
search) * 

ls_ChargeType = anv_ChrgPrldRule .of JSetAttribute (' charge_type' ) 

return of_f indinst ruction (is_opbankorg, ls_customer, ls_instrument, 
ls_chargetype) 

// OVERLOADED Version of of_FindIns true t ion is below: 

n_cst_busobj_chrginstruction lnv_chrginstruction 
string ls_instrucuoid [] 

// Call the class responsibility to find an instruction based on the obtained 
information: 

lnv chrginst ruction » create n_cst_busobj_chrgmstruction 

// Pass a handle to the instrument so the subsequent search doesn t open it 

lnv^chrginstruction.of setrequestinginstrument (inv_instrument) 
lnv'chrginstruction.of^cls^determineinstructionds^instrucuoidt] , TRUE, & 

as_oporguoTd, '', ", as_customeruoid, as^instrumentuoid, 
as_chargetype) 
destroy lnv_chrginst ruction 

IF upperbound(ls_instrucuoidU ) > 0 THEN 

return ls_instrucuoid[l] 
ELSE 

return ' ' 
END IF 

Ob j ec t : n_c s t_busob j _chrgins time t ion 
Process: 198 

Method: of_cls_DetermineInstruction() 

Called by ofJFindlnstruction on 

n_cst_bussrv_assesscharges to search for a charge 
instruction for the specified operational bank org, 
customer, and charge type. 



of — cls_determineinst ruction 
public 



/* . 

Function: 

Access : 

Arguments : 

instruction is 

continue to the 

general instructions. 

as_OpBkOrgID 

(input) 

as_Coun t ryTyp e 



as_InstrucUoid (3 
ab_StopWhenFound 



Found instruction Uoids (output) 
TRUE if search should end after an 

found, FALSE if the search should 

next level and search for more 

Oper.Bank Org. to base search on 

Country to base search on (input) 
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(input) 

argument value 

Returns: 
found) 

Description: 

Group and 

Then "ofJDpen'J 

resulting six 

retrieval 

one the six 
deactivated and 

attempt to 
specialized 
Unless 
instruction 
instruction Uoids 
found. 



as_InstructionGroup 

as_CustomerID 
as_Inst rument ID 
as AddlAttrValue 



Instruction Group to base search on 

Customer to base search on (input) 
Instrument to base search on (input) 
Optional additional retrieval 



instruction uoids (if found) , instruction parent class (if 

Using Instrument (optional) , Customer (mandatory) , 

and OpBankOrg (mandatory) derive the customer* s Instruction 

Instruction Country and the OperBankOrg' s parent bank org. 

the instruction search list passing it today's date, the 

object Uoids, and an additional optional search criterion as 

arguments for the search list object. 

The call to of_Open will find all instructions that are for 
possible parents and that are currently effective (not 
not future dated given today's date). 

Now apply the common instruction search method which is to 
find the applicable instruction by searching from the most 
to the most general instructions in the following order. 
ab_StopWhenFound is FALSE, "end the search when the first 
is found. Otherwise keep going up the chain and add 
to the output array if more applicable instructions are 



1. Instrument 

2. Customer 

3. Instruction Group 

4 . Country 

5. Operational Bank Organization 

6. Parent Bank Organization 

////////////////////////////////////////////////////////////////////////////// 
// 

// Revision History 

// BSchuettler 2 jan 1997 Initial version 

////////////////////////////////////////////////////////////////////////////// 
// 

// Copyright ° 1997 American Management Systems. All rights reserved. 

////////////////////////////////////////////////////////////////////////////// 

string ls_ParentBkOrg, ls_RetrievalArgs [] , lsJTermsUoid, & 

Is InstrumentUoid, ls_CustomerUoid, lsJDpBkOrgUoid 
integer Ti_NumFound, li, li_EntryLevel 
boolean lb~AnythingFound a FALSE 

// resolve any derivable levels using the levels (instruction parents) 
specified. Then 

// open the search list object so that it will contain any (active) 
instruction for any 

// level higher than or equal to the lowest level specified by the caller: 
IF of_RetrieveAllApplicable(as_inst rument id, as_customerid, 
as instructiongroup, & 

as_countrytype, as_opbkorgid, lsjparentbkorg) <> gk. SUCCESS THEN 
return gk. FAILURE 
END IF 
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// See if the list contains an instruction for the current instrument (if 
applicable) : 

IF of _FindFor Parent (as_InstrucUOID [] , as_Ins t rumen t ID, as__AddlAttrValue) THEN 
lb_Any thing Found = TRUE 

IF ab_StopWhenFound THEN return gk. SUCCESS 
END IF 

//If nothing found for instrument or StopWhenFound is FALSE, check if the 
list contains 

// an instruction for the current customer (if applicable) : 
IF of_FindFor Parent (as_InstrucUOID (1 , as_customerID, as_AddlAttrValue) THEN 
lb_AnythingFound = TRUE 

IF ab_StopWhenFound THEN return gk . SUCCESS 
END IF 

// If nothing found for customer or StopWhenFound is FALSE, check if the list 
contains 

// an instruction for the current customer's instruction group: 

IF of_FindForParent (as_InstrucUOIDU , as_InstructionGroup, as_AddlAttrValue) 

THEN 

lb AnythingFound =* TRUE 

IF~ab_StopWhenFound THEN return gk . SUCCESS 
END IF 

//If nothing found for instruction group or StopWhenFound is FALSE, check if 
the list contains 

//an instruction for the current customer's country: 

IF of_FindForParent(as_InstrucUOID(] , as_CountryType , as_AddlAtt rvalue) THEN 
lb AnythingFound =» TRUE 

I F~ab_S t opWhe nFound THEN return gk. SUCCESS 
END IF 

//If nothing found for country or StopWhenFound is FALSE, check if the list 

contains ^ , * 

// an instruction for the current operation bank organization: 
IF of_FindForParent(as_InstrucUOID(J , as_OpBkOrgID , as_Addl At t rvalue) THEN 
lb_Anyt hi ng Found = TRUE 

IF ab_StopWhenFound THEN return gk. SUCCESS 
END IF 

// If nothing found for oper. bank org. or StopWhenFound is FALSE, check if 
the list contains 

//an instruction for the current operation bank organization's super bank 
org : 

IF of_FindForParent(as_InstrucUOID[l , ls_ParentBkOrg, as_AddlAttrValue) THEN 

lb_AnythingFound = TRUE 
END IF 

IF lb__AnythingFound THEN 

return gk. SUCCESS 
ELSE 

return gk. FAILURE 
END IF 
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Object: n_cst_bussrv_assesscharges 

Process: 200 

Method : of _CreateCharge 

Called by n_cst_bussrv_assesscharges from method 
of J3enerateNewCharges. Creates an Activity Charge 
component object for the Activity based upon the 
specified Charge Preload Rule and Charge 
Instruction. 

/////////////////////////////////////////7//////////////////////////////////// 

///// 

/* 

Description: 

of createcharge 



handle to rule that caused this 
handle to instruction on how to 



Description 
initial release 

skip 'same' charge only if it is not held 

if the charge amount is zero, then don't create it. 

delete the charge. IR9810010925570 . 



Arguments : 

anv__chrgp r 1 drul e 
charge type to preload 

anv_chrginstruction 
calculate this charge type 

Returns : 

Return SUCCESS or FAILURE 

////////////////////////////////////////////////////////////////////////////// 
///// 

//Revision History 
// 

// Name Date 
// bschuettler 10/01/96 
// bschuettler 04/03/98 
(IR#980324170447) 
// BNewman 05/06/98 
We must 
// 

////////////////////////////////////////////////////////////////////////////// 
///// 

// Copyright ® 1996 American Management Systems. All Rights Reserved. 

////////////////////////////////////////////////////////////////////////////// 
///// 

n cst_busobj_activitychrg lnv_charge 

n_cst_busobj_fxrate lnv_rate 

n_cs t_bus srv_convert er lnv_conver t e r 

string ls_return, ls_ChrgUoid « " , ls_ChrgCur, ls_InstrumCurrency, 
Is DistrUoid = " , & 

ls_AN[], ls_AV[], ls_null[], ls_ChrgBasisType, lsJ)ateRange , 
ls_RateUoid, & 

ls_ChrgBasisAmt, ls_ChargeType , ls_InstrucChargeType, ls^oamt [J , 
Is camt U i & 

Is RuleUoid, ls_InstrucUoid, IsJDistPtyType t] , ls_DistWhen [] , 
ls_DistPct [T 

decimal ldc_ChrgAmt, ldc_ChrgAmtBase, ldcJThrgAmt Party, ldc_ChrgBasisAmt [] , 
1 dc_ChrgBas i sAmtConv 

integer li_ChrgBasisDays, i, j, lijiumdistributions 
long ll_row[] 
boolean lb_success [] 
decimal ldec_rate 

n_cst_objcls_objectlist lnv_chargelist 

// retrieve basic charge data from the preload rule, the instrument and the 
activity: 

anv_ChrgPrldRule . of _GetAt tribute ( { ' uoid' , ' date_range ' , ' charge_basis_type , 
' charge_type ' } , 1 s_av { ] ) 
ls_RuleUoid = ls_av[l] 
ls_DateRange = ls_av(2] 
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ls_ChrgBasisType = Is av[3] 
ls~ChargeType = ls_avT4] 
ls_av[] = l3_null[] 

// if a charge based on this rule already exists in the activity and it is not 
held, do not preload it again. 

// This will be the case if a user has overridden a charge which should not 
produce a 'duplicate' . 

lnv_chargelist = inv_activity.of_get component handle ( ' activity_charge_list' ) 
if lnv_chargelist.of_locate({'related_charge_preload_rule' , 

'held_charge_activity' } , {ls_ruleuoid, " } , false, ls_av[] , ll_row[] ) > 0 then 

return gk. success 
end if 

ls_av[] = ls_null[] 

ls_InstrumCurrency « invjtastrument .of _GetAt tribute (' currency' ) 
li_ChrgBasisDays = of JletrieveChrgBasisDays (inv_Activity, ls_DateRange) 
ls_InstrucUoid = anv_chrginstruction.of_getattribute( 'uoid' ) 
of JtetrieveChrgBasisAmt(inv_Activity,- ls_ChrgBasisType , ls_ChargeType, 
ldc_ChrgBasisAmt [] ) . 

// calculate a charge for every charge basis amount found (multiples only when 
a payment 

// has multiple doc sets and the 'individual charges' indicator on payment is 
'no': 

for i = 1 to upperbound(ldc_ChrgBasisAmt [) ) 

ls_ChrgBasisAmt » string (ldc_ChrgBa sis Am t [i] ) 

// figure out who to distribute the charge to based on the instruction and 
the 'charges for' logic: 
ls_av[] = ls_nuil[] 

anv chrginstruction .of__getcomponentat tribute ( ' charge_distribution_list ' , 
{ ' charge_debit - party_type' , ' when_collected' , ' charge_per cent age' J , ls_av E3 ) 
lijnumdistributions =» upperbound(ls_av[] ) / 3 
for j a 0 to lijnumdistributions - 1 
Is DistPtyType(j+l3 ■ ls_av[j*3+l] 

// default any missing party type specifications to the terms' CHARGES 
FOR party type: 

if gnv_app.inv_string.of_isempty(lsJ)istPtyType[j+l] ) then 
Is DistPtyType [j+1] =» is_ChargesForPartyType 

ls_DistWhen[j+l] =. Is_av[j*3+2J 

ls_DistPct [j+l] « ls_av[j*3+3] 
end for 

Is av[] = ls_nullCl 

//""default missing distributions to one going to the CHARGES FOR party 
type : 

if li_numdistributions » 0 then 

ls_DistPtyType[ll = is_ChargesForPartyType 

ls_DistWhen[l] = gk. IMMEDIATELY 

ls_DistPctCl] - '100' 

li_nuradistributions = 1 
end if 

// Create a charge for every charge distribution object attached to the 
instruction: 

for j « 1 to li_numdistributions 

// Create a new instance of activity charge in the activity charge list and 
set its basic data: 

setnull (ls_ChrgUoid) 

ls_Return * inv_Activity.of_NewComponent ( ' activity_charge_list' , 
Is ChrgUoid) 

inactivity . of_SetComponentAttribute ( ' activity_charge_list ( ' + 
ls_ChrgUoTd + ' ) ' , & 

{ 'charge_type' , ' chargejDasis_amount_s' , 
'related charge_preload_rule' , ' def ault_charge_inst ruction' } , & 

{ls_ChargeType, ls_ChrgBasisAmt, IsJluleUoid, ls_InstrucUoid) , 
lb_success [3 ) 

// Set the attributes on the charge's distribution: 
ls_DistrUoid = 

inv_Activity.of_GetComponentAttribute ( ' activity_charge_list ( ' +ls_ChrgUoid+' ) . c 
harge_distribution_JList [11 ' , ' uoid' ) 

ls_an[3 = { ' charge_debit_party_type' , ' when_collected' , 
' charge_percentage' } 

ls_av[J = {ls_DistPtyType[j3 , lsJDistWhen [ j] , lsJDistPct I j ] } 
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inv_Activity. of _SetComponent Attribute ( ' activity_charge_list ( ' +ls_ChrgUoi 
d+') .charge_distributionJList('+lsJ)istrUoid+') • , ls_an[], ls_av(], 
lb_success (3 ) 

// make the charge's formula a copy of the instruction's formula: 

ls_Return » this .of_CopyComponent (anv_ChrgInstruction, inv_Activity, & 

' charge_formula' , & 

1 activity_charge_list { ' +ls_ChrgUoid+' ) . charge_formula' ) 

// call calculate on the new charge: 
lnv_charge = 

inv_activity.of_getcomponenthandle { ' activity_charge_list ( ' +ls_chrguoid+' ) ' ) 
lnv_charge .of_calculate (this, anv_chrgprldrule) 
// if the charge_amount is zero, then don't create the charge 
if dec(lnv_charge.of_getattribute('charge_amount')) = 0 then 

lnv_charge .of _delete ( ) 
Else 

i i_NumCharges++ 
End If 



end for // distribution loop 
end for // charge basis amount loop 

" return Is Return 
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Object: n_cst_busobj_activitychrg 

Process: 204 

Method : of _Calculate ( ) 

Calls of_Caculate on the Charge Formula object and 
stores the resulting charge. 

IllUIIIUIUIIUIIIIUIIUIIIIIIIIUIUIIUIIIIIUIIUllUIIIIUIUIUIIimi 

///// 

/* 

Description: 
of_calculate 

Call the calculate responsibility on the charge formula to obtain the 
latest charge „ m _ . _ _ . . 

amount. This will be called when the attached formula has changed/is new. 

Arguments : 

anvchrgservice handle to the charge 

service object needed ^ perform needed 

fun ^?ule handle to the rule based 

on which this charge is to be 

calculated 

Returns: 

gk. SUCCESS or gk. FAILURE 

yinuniiuiiiuiiiiiiiiiiuiiiiinuiuuiiiuiiuuiiiiuuiiiuiiniiiini 
/tin 

//Revision History 
// 

// Name Date Description 

// bschuettler 27 feb 97 initial release . 

// bschuettler 21 apr 98 IR 971217090227: Make sure internal calculations 

have 6 digit 

// precision. 

// bschuettler 17 aug 98 IR 242: Round charge amounts to their currency's 
precision. 

UllllllllUiUIIIUItUllllllllllltlUIIUIIUUUIUIUIIIUIIIIIIUUIUIII 

1/11/ 

// Copyright • 1996 American Management Systems. All Rights Reserved. 

I l , llllllll!l/t/lll//ll/ll/l/l/ll//l/l///lll///l/llillllllllllll"""ll" 111111 

string ls_ChrgCur, Is InstrumentCur, ls_BaseCur, ls_OpBankOrg, lsJlateUoid, 
Is ChargeType, ls_av[T „ ^ ^ 

decimal {6} ldc_ChrgBasisAmt , ldc_ChrgBasisAmtConv, ldc_ChrgAmt, 
ldc ChrgAmtBase, ldc_rate 

integer li_ChrgBasisDays, li_CurrencyPrecision, li_BasePrecision 
Byconversion lstr_conversion 

n_cst_busabs_activity lnv_activity 
n cst_busabs_instrument lnv_instrument 
n_ cst_busobj_fxrate lnv_rate 
n_cst_bussrv converter lnv_converter 
n_cst_codeobJ_currency lnv_currency 

lnv_Activity = inv_Immediate Parent 

lnv instrument = lnv_activity.of_getimmediateparent { ) 

InvjLnstrument .of_getattribute ( { ' base_currency 1 , ' currency' } , ls_av [ ] ) 

lsJBaseCur =» ls_avll] 

Is InstrumentCur = ls_av[2] 

ls~OpBankOrg - lnv_Activity.of_DetermineOperationalBkOrg () 
ls~ChargeType = inv_AttributeMgr .of^getattribute ( ' charge_type' ) 

of enableobjectwarehouse(TRUE) 

//"get the amount of decimals of all currencies: 
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if inv_objectwarehouse.of_getobject('n_cst_codeobj_currency , , ls_BaseCur, 
lnv_currency) = gk. success then 

li_BasePrecision = 
integer (lnv_currency. of _getattribut e ( ' number_of_decimal_places' ) ) 
end if 

if inv_objectwarehouse.of_getobject ( ' n_cst_codeobj_currency' , 
ls_InstrumentCur, lnv_currency) = gk. success then 

li_CurrencyPrecision = 
integer { lnv_currency . of _getat tribute (' number_of_decimal_places ' ) ) 
end if 

// get the charge basis amount: 
ldc ChrgBasisAmt = 

decTinvJVttributeMgr . of _GetAt tribute ( ' charge_basis_amount_s ' ) ) 

if isvalid(anv_rule) then 

// Get the amount of days to base this calculation on: 

li ChrgBasisDays = anv_chrgservice.of_RetrieveChrgBasisDays (lnv_Activity, 
anv_rule . of _GetAt tribute ( ' date_range' ) ) 
else 

// Get the default amount of days to base this calculation on: 
li_ChrgBasisDays ■ anv^chrgservice .of_RetrieveChrgBasisDays (lnv_Activity, 

") 

end if 

// Call the formula component to calculate and obtain a new amount: 

inv Formula. of calculate (ldc_ChrgBasisAmt , ls_InstrumentCur, li_ChrgBasisDays, 

ls_OpBankOrg, Tdc_ChrgAmt , ls_ChrgCur, ldc_ChrgBasisAmtConv) 

// multiply the amount obtained with the percentage of the distribution: 
ldc_ChrgAmt = ldc_ChrgAmt * 

dec (of_GetComponentAttribute ( ' charge_distribution_list [1] ' , 
'charge_percentage' ) ) / 100 

// Convert the amount to base to additionally store the base equivalent: 
if of_retrievefxrate(ls_OpBankOrg, ls_ChrgCur, ldc_rate) = gk. success then 

lnv_converter = create n_cst_bussrv_converter 

lnv_converter . of _setrequestor ( lnv_activity) 

lstr_conversion.s_operationalorg » ls_OpBankOrg 

lstr_conversion.s_sourcecurrency « ls_ChrgCur 

lstr_conversion.s_targetcurrency => ls_BaseCur 

lstr_conversion . s_origamounts [11 » string ( ldc_ChrgAmt ) 

lstr_conversion.s_rate = string (ldc_rate) 

if lnv_converter .of_convert (1st reconversion) <> gk. success then 
destroy lnv_converter 
return gk. failure 

end if 

destroy lnv_converter 

ldc ChrgAmtBase » dec (1st reconversion. s_convertedamounts [1] ) 
end if 

// set all amount related attributes: 

inv_AttributeMgr .of_SetAttribute ( ' calculated_charge_amount_instruction_s' , 
string (Round ( ldc_ChrgAmt , li_CurrencyPrecision) > ) 

inv_AttributeMgr . of _Set At tribute ( ' charge_amount_s ' , string (Round ( ldc_ChrgAmt , 
li_CurrencyPrecision) ) ) 

inv_AttributeMgr . of _SetAttribute ( ' charge_currency_s ' , l3_ChrgCur ) 

inv_AttributeMgr . of SetAttribute ( ' charge jDase_equivalent_amount_s ' , 

string (Round (ldc_ChrgAmtBase, li BasePrecision) ) ) 

inv AttributeMgr ! of _SetAt tribute!' charge Jbasis_amount ' ( 

string ( ldc_ChrgBasisAmt ) ) 

inv_AttributeMgr . of _SetAt tribute ( ' charge_instruction_basis_amount' , 
string (ldc_ChrgBasisAmtConv) ) 

inv_AttributeMgr . of _SetAttribute ( ' instruct ion_currency ' , ls_ChrgCur) 

// copy the waive analysis indicator from the formula: 
inv_AttributeMgr . of _Set Attribute ( ' waive_analysis_collect_indicator' , 
inv_Formula.of_GetAttribute ( ' waive_analysis_collect_indicator' ) ) 

// Reset the 'changed' flag on formula: 
inv_Formula . of _ResetChange ( ) 
return gk. SUCCESS 
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Ob j ect : n_cst_busob j_ chrgf ormula 

Process: 206 

Method: of__Calculate () 

Called by of_Calculate on 

n_cst_busobj_activitycharge to calculate the amount 
of the charge. 

////////////////////////////////////////////////////////////////////////////// 
/* . 

of calculate 



Function: 

Access: 

Arguments : 
(input) 

(that of instrument) 
on (input) 

its currency (output) 
formula) (output) 
formula's currency 
Returns: 



public 

adc_ChrgBasisAmt 

as__InstrumentCur 

ai_ChrgBasisDays 

as__ChrgAmt 

adc_ChrgCur 



The amount to base the charge on 

The basis amount's currency 
The day range to base the charge 
The calculated charge amount in 
The charge's currency (that of 



adc_ChrgBasisAmtConv The charge basis amount in the 



string 

(gk. SUCCESS or gk. FAILURE) 



Description: Calculates the charge amount for a formula given a 
CHARGE BASIS AMOUNT / CURRENCY and 
CHARGE BASIS DAYS. 



LEGEND: 

C ■ Charge Due 

R = Basic Rate 

LRx = Level Rates (x=l-5) 

LAx = Level Amounts (x=l-5) 



ir_ChargeDue 
ir_BasicRate 
ir LevelRate [5] 



ir_LevelAmount [5] 
ir_IntervalRate [3] 
ir IntervalMin[3] 



IRx 



IMx 



BD 



Interval Rates (x=l-3) 

Interval Minimums (x=l-3) 

Basis Number of Days for Calculation 



ir ChrgBasisDays 

~ BA m Basis Amount for Calculation 

IGD = Interval Grace Days 

parameter 

DIY « Days in Year 
parameter or formula override 

LIO * Number of Last Interval Occurences 

OVERVIEW: 



i r_Chr gBas i s Amt 
system 

system 

ir LastlntOccur 



INITIALIZE: 
- Derive the basic rate (R) as follows: 

IF a multi-level rate specification exists, derive R using 
the rate / level table 

(this could be in tiered or threshold mode) 
OTHERWISE use the interval basic rate specification. On a 
valid formula instance, , 

an interval basic rate will exist only if there is no 
rate/level specification. 

- If an interval specification exists, derive the amount of 
times the last/only interval occurs in the , 

calculation (LIO) based on the overall days (BD) minus any 
interval grace days (GD) , and if 

multiple intervals exist, minus the first interval (s) 
which are calculated as occuring once. 

GD are the number of days into a new interval that should 
not be calculated as an interval. 
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CALCULATE: 

- IF this is an annualized calculation, 

IF it is not a periodic commission, calculate C = R * 

BD / DIY * BA / 100. 

OTHERWISE perform special periodic commission logic 
using associated per. commission details 

END OF CALCULATION 

*/ 

////////////////////////////////////////////////////////////////////////////// 

// Revision History 
// 

// Version 

// 1.0 Initial version 

// RCarden 01 apr 98 Create OpBank Org using object warehouse. 

// draum 05 nov 98 IR #980127104925 Rates must have 8 digit 

precision 
// 

////////////////////////////////////////////////////////////////////////////// 
// Copyright ° 1998 American Management Systems, Inc. All Rights Reserved. 

////////////////////////////////////////////////////////////////////////////// 

n_c s t_busabs_Ac t i vi ty lnv_Ac t ivi ty 

n_cst_bussrv_AssessChrgs lnv__AssessChargesSrv 

n_cst_busobj_ chrgprldrulelc lnv_Rule 

n_cs t_busob j _OpBankOrgani zat ion lnv_opbkorg 

boolean lb__CalcSubstituteBasisAmount 

string ls_ChargeType, ls_CurrencyInd, ls_SubstituteChargeBasisType 
Byconversion lstr_conversion 

idc_ChrgBasisArat = adc_ChrgBasisAmt 
ii_ChrgBasisDays =» ai_ChrgBasisDays 

lnv_Activity « inv_Immediate Parent . of _GetImmediateParent ( ) 

// Initialize Level /Interval calculation specifications and the BASIC RATE: 
of_Initialize() 

// determine the resulting charge's currency using the indicator on operation 
bank organization: 

// This has been disabled due to a pending issue (burkhard 4/15/98) 
// if not ib_flat then 
if false then 

of_EnableObjectWarehouse (True) 

if inv_Ob j ectWarehouse . of_GetObj ect ( ' n_cst_busob j_opbankorganization' , 
as_opbankorg, lnv_opbkorg) = gk. success then 

ls_currencyind » 
lnv_opbkorg.of_ge tat tribute { ' charge_currency_indicator' ) 

else 

Is currencyind = gk. currency of instruction 
end if " ~ 

choose case ls_currencyind 
case gk.base_currency 

as_ChrgCur => is_basecurrency 
case gk. cur rency_of_inst rumen t 

as_ChrgCur = as_inst rumen t cur 
case gk. currency of_inst ruction 

as_ChrgCur = Inv_AttributeMgr .of _Get At tribute ( ' currency' ) 
end choose 
else 

as ChrgCur inv AttributeMgr.of Get Att r ibute (' currency' ) 
end il 

II (For interval charges only) The full instrument liability or outstanding 
// amount should be used to calculate the charge due rather than the delta 
// amount -- for intervals created during an amendment because of an extension 
// in the end date. Calculate the substitute basis amount for use in these 
cases. 

if is_CalcType a 'INT' then 

// get the charge basis type from the related rule of the charge 

lnv_Rule s CREATE n_cst Jbusobj_chrgprldrulelc 

lnv_Rule . of _Open ( inv_ImmediateParent . DYNAMIC 
of _GetAttribute ( ' related_charge jpreload_rule ' ) # & 

is_UserID f is_Password, gk . ACCES SPREAD ) 
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ls_SubstituteChargeBasisType = 
Invjiule.ofJSetAttributeC charge basis type') 
DESTROY lnvjlule 

// ...and be sure to use the full amount instead of the delta... 

if (ls_SubstituteChargeBasisType = gk . BANK_LIABILITY_AMOUNT_CHANGED) then 

ls_SubstituteChargeBasisType a gk . B ANK_L I AB I L I TY_AMOUNT 

lb_CalcSubstituteBasisAmount = TRUE 
elseif ls_SubstituteChargeBasisType = gk . OUTSTANDING_AMOUNT CHANGED then 

ls_SubstituteChargeBasisType = gk . OUTSTANDING__AMOUNT 

lb_CalcSubstituteBasisAmount = TRUE 
else 

lb CalcSubstituteBasisAmount = FALSE 
end if 

// Now, if we need to recalculate the charge basis amount, create the 
service object and retrieve the amount... 

if lb_CalcSubstituteBasisAmount then 

decimal {6} ldc_temp [] // since the function takes an array but we only 
want one ... 

ls_ChargeType = inv_ImmediateParent .DYNAMIC 
of JSetAt tribute ( ' charge_type' ) 

lnv_AssessChargesSrv = CREATE n_cst_bussrv_Asses3Chrgs 

lnv_AssessChargesSrv . of _RetrieveChrgBasisAmt ( lnv_Activi ty , 
ls_SubstituteChargeBasisType, ls_ChargeType, ldcJTemp [] ) 

idc_SubstituteBasisAmount ■ ldc_Temp[l] 

DESTROY lnv AssessChargesSrv 
end if 
else 

// For non- interval charges, we don't want a substitute basis amount... 
lb_CalcSubstituteBasisAmount = FALSE 
end if 

// if the. currency of the charge/ formula is different than that of the 
instrument , convert 

// the charge basis amount to the charge currency and substitute basis amount 

to the formula currency. 

if as_ChrgCur <> as_Inst rumen t Cur then 

n_cst_busobj_f xrate lnv_rate 

n_ cs t_bus srv_conve r t e r lnv_conver t e r 

string Is RateUoid 

decimal {sj ldc_rate 

// if the charge currency is base, get the instrument currency rate, else 
the charge currency rate: 

if as_ChrgCur = is_BaseCurrency then 

inv_immediateparent . dynamic of _retrievef xrate (asJDpBankOrg, 
as_ InstrumentCur, ldc__rate) 

else 

inv_immediateparent. dynamic of ret rievef xrate (as OpBankOrg, as ChrgCur, 
ldc_rate) " 
end if 

// now convert from instrument currency to formula currency using the found 
rate : 

lnv_converter = create n_cstJbussrv_converter 
lnv_converter . of _set requestor ( this) 
if ldc_rate > 0 then 

// set up the converter... 

lstr_conversion.s_operationalorg a as_OpBankOrg 

lstr_conversion.s_sourcecurrency = as_InstrumentCur 

lstr_conversion.s_targetcurrency = as_ChrgCur 

lstr_ conversion.s_rate = string (ldc_rate) 

// ...then convert the charge basis amount... 

lstr_conversion.s_origamounts [1] = string (idc_ChrgBasisAmt) 

if lnv_converter.of_convert (lstr_conversion) <> gk. success then 

idc__ChrgBasisAmt = 0 
else 

idc_ChrgBasisAmt = decdstr conversion. s convert edamount s [1] ) 
end if " 

// ...and if necessary, then the substitute basis amount... 

if lb_CalcSubstituteBasisAmount then 

lstr_conversion.s_origamounts (1) = string (idc_SubstituteBasisAmount) 
if lnv_conver ter. of _convert( 1st reconversion) <> gk. success then 

idc_SubstituteBasisAmount = 0 
else 
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idc_SubstituteBasisAmount = 
dec (1st reconversion. s_convertedamounts Cl] ) 
end if 
end if 
else 

// ...if the conversion rate is 0, then the amount is 0 also... 

idc_ChrgBasisAmt = 0 

// ...as is the substitute amount... 

if lb_CalcSubstituteBasisAmount then idc_SubstituteBasisAmount a 0 
end if 

destroy lnv_converter 
end if 

// pass the basis amount used back to the caller for their reference: 
adc_ChrgBasisAmtConv = idc_ChrgBasisAmt 

IP ib_Annualized THEN idc_BasicRate = idc_BasicRate * ii_ChrgBasisDays / 
ii_DaysInYear 

CHOOSE CASE is_CalcType 
CASE ' FLT ' 

idc_ChargeDue = dec ( inv_AttributeMgr . of J3etAttribute ( ' f lat_amount ' ) ) 
CASE ' PER' 

idc_ChargeDue a 0 

of _ad j us t tominmax ( idc_ChargeDue ) 
CASE ' RTE ' , ' LVL' 

idc_ChargeDue = idc BasicRate * idc_ChrgBasisAmt / 100 

of _adjusttominmax ( i3c_ChargeDue) 
CASE 'INT' //Interval charge 

// perform interval -specific initialization... 

if of_InitializeIntervalVars() <> gk. SUCCESS then 
return gk . FAILURE 

end if A 

II ...then create (or update) the charge intervals... 

if of_CreateOrUpdateIntervals() <> gk. SUCCESS then 
return gk. FAILURE 

// d . if and finally, calculate the amounts for each interval and the total 

amount 

idc_ChargeDue « of _CalcIntervalCharge ( ) 
END CHOOSE 

adc_ChrgAmt =» idc_ChargeDue 
return gk. SUCCESS 



